Followup fix to previous message-update-smtp-method-header change

* lisp/gnus/message.el (message-update-smtp-method-header): Narrow
to the headers first.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 2735c043b315f2816f2b1d0dd1a4ecb93e82f81e..a6c6a16653dc7a2b670ac375465dedba32103e72 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4360,6 +4360,7 @@ it is left unchanged."
     (let ((from (cadr (mail-extract-address-components
                        (save-restriction
                          (widen)
+                         (message-narrow-to-headers-or-head)
                          (message-fetch-field "From")))))
           method)
       (catch 'exit